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BOLLETTINO DEL CLUB UTENTI MICRO Z-SO L.G* 


OTTOBRE 1981 


BASIC 

Abbiano notato, dalle lettere che genti Inerite ci avete 
inviato, che esiste ancora una certa confusione sui diversi tipi di 
BASIC disponibili per il nostro Microcalcolatore* 

Pertanto cerchiano di chiarire definitivanente alcuni 
dubbi* Anzitutto il BASIC pub" essere fornito su cassetta o su disco* 
Notate bene pero" che 

TUTTI I PROGRAMMI DA NOI FORNITI SU DISCO 
NECESSITANO DEL SISTEMA OPERATIVO CP/M 


Pertanto e' del tutto inutile ordinare il BASLG2 oppure il 
BASLG3 se non disponete del CP/M* 


XIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX H«»»*)r»»*«»»»™ »™™r»™. T ,' m 
* * TAGLIANDO DI ISCRIZIONE AL CLUB UTENTI DEMICRQCOMPUTER Z-80 L.G. * x 


* C0GN0ME . NONE... 

* m . « . 

* C,A,F '. CITTA'..... 

* PROVINCIA.......» TELEFONO. 


* COffflGlHiAZIONE MICRO!. x 

*******......*....... x 

XXXXXmXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXl XIlXXI X XXIXXXXXXXXXXXTI Trarexxra™., 



SU CASSETTA esiste il famoso BASIC LG1 italiano-inglese che 
viene fornito con 1'interfaccia video a 32 caratteri per riga* Si 
tratta di un interprete didattico da 5,5 kbyte che consente di inparare 
facilmente a programmare ed ha alcune limitazioni , specialmente 
nell'uso delle stringhe alfanumeriche. Impiega circa 5 minuti ad essere 
caricato e permette di scrivere programmi su cassetta e di rileggerli 
tramite un comune registratore* E' pertanto un linguaggio adatto all' 
hobbista grazie anche al suo costo estremamente ridotto. Finora non era 
stato molto ben documentato* ma ora e' disponibile un dettagliato 
manuale di 5^ pagine che spiega i vari tipi di comandi e li illustra 
con esempi* Questo manuale può' essere richiesto separatamente tramite 
l'apposito foglio per ordini* E' inutile richiedere invece la lista del 
programma per apportarvi modifiche in assembler perche' non viene 
fornita. 


SU DISCO esiste il BASLG2 che e' identico al BASLG1 ma 
permette di registrare i programmi sia su disco che su cassetta, 
(permette ad esempio di leggere un programma da cassetta e registrarlo 
su disco e viceversa) inoltre ha alcuni comandi in piu' tipo* CHR$(X) 
che consente di comandare cambi di formato sulle stampanti etc* E' 
stato realizzato per coloro che avevano già' sviluppato grossi 
programmi con il BASLG1 e che desideravano trasferirli su disco per 
poterli leggere in pochi secondi. Infatti il BASLG2 impiega, per essere 
caricato in memoria circa 5 secondi e questo da' l'idea della 
differenza di velocita'. Ricordiamo che per poter utilizzare il BASLG2 
e' necessario possedere il sistema operativo CP/M. 

Infine abbiamo, sempre su disco, il BASLG3 che occupa piu' 
di lSkbyte e che richiede un CP/M da almeno 32kbyte. E' un BASIC 
potentissimo per applicazioni professionali (gestione 
magazzini,fatturazioni, etc*> e per 1'hobbista esigente. Anch'esso e' 
fornito con un manuale di 7^ pagine che illustra ampliamento le diverse 
istruzioni * 


Ricordiamo che le sigle L.G1*LG2»LG3 servono a distinguere i 
diversi tipi di BASIC e non hanno alcun rapporto con la potenza 
dell'interprete, infatti in commercio ci sono, per altre macchine, 
BASIC 5 che sono molto meno potenti del BASLG3 e che portano il numero 
5 solo perche' in precedenza ne sono uscite altre 4 versioni* 


GIOCO DEL GOLF. 

Viene disegnato un campo da gioco con la pallina, indicata da T, e il 
green cioè' la parte di campo vicino alla buca. Si hanno a disposizione 
li mazze per colpire la palla. La mazza i permette un tiro molto 
lungo, mentre la 11 serve per colpi ravvicinati. La direzione si 
sceglie mediante un numero da 0 a 12 secondo un orientamento simile a 
quello di un orologio. 12 ™ verso l'alto, 3 ~ verso destra, etc. 
Attenzione agli ostacoli dove si può' perdere la palla. Una volta 
giunti sul green il calcolatore cambia scala e occorre indicare la 
forza con cui si vuole colpire: da 1 a 9, in questo caso 9 indica la 
forza massima. Il vento può' deviare la palla. 



4 CLS:P.AT12,"CRQSS-OUT" : p„:P.;p.;P. 

5 S=l:N=OsI."DESIDERI LE ISTRUZIONI (S/N>";F 
IO IFE=OT.120 

20 CLS 


30 P."OGNI MOSSA DEVE ESSERE UN SALTO ,"3 
40 P„“ IN DIREZIONE OPRI ZZ OLITALE 0" 

45 P."VERTICALE E OGNI PEDINA SALTATA" 

50 P. "SARA-’ RIMOSSA DALLA SCACCHIERA. " 

55 P."MOSSE IN DIAGONALE O MOSSE SENZA"; 
60 P. "SALTARE NON SONO PERMESSE.." 

65 P."L’OGGETTO DEL GIOCO E’ DI RIMUO-"; 
70 P."VERE TUTTE LE PEDINE TRANNE UNA" 

75 P."LA QUALE DOVRÀ’ ESSERE NEL " 

SO P."CENTRO DELLA SCACCHIERA." 

85 GOS.3000 5 CLS 


90 P."TRE MOSSE INVALIDE DI SEGUITO" 

95 P."PORRANNO TERMINE AL GIOCO." 

96 P."SE NON ESISTE UNA MOSSA LEGALE," 

97 F'. "FARE TRE ENTRATE PER OTTENERE ILRESPONSO" 

100 p » :P « :P-"INTRODUCI I RICHIESTI NEL SEGUEN"; 
102 P."FORMATO: X,UNA VIRGOLA & V" 

105 P."POI BATTI <RETURN> . " 

HO P» si. "BATTI < RETURN > PER CONTINUARE,. " ; AT 
120 CLS 

130 P."IL GIOCO PUÒ’ COMINCIARE CON IL" 

140 P."CENTRO VUOTO " 

145 P."OPPURE PUÒ’ ESSERE VUOTA UNA" 

147 P. "CASELLA CASUALE. " 

150 P.:P„"PER IL CENTRO VUOTO, BATTI 0," 

160 I."PER UNA CASELLA CASUALE VUOTA,1 SCEGLIN 

165 P.;P„;p."NON DIMENTICARTI DI METTERE IA " 

166 P."VIRGOLA TRA X S< Y " 


167 F. L~ 1 TO1000;N.L 
170 CLS;M=32s H=0 

180 P.AT256,"Y 4"; 

181 P,AT194,"3"; 

182 P.AT98,"1"; 

183 P,ATI62,"2"; 

184 P.AT386,"7"; 

185 P. AT322," 6"5 

186 P.AT290,"5"; 

200 P.AT64,"X 12 3 

205 P.AT416,"X 1 2 "3 

210 F.X=21T042 
220 S. (X, 10) sS. (X, 14) : S. (X, 
230 F. X--8T056 

240 S. ( X, 18 ) : S. <X,22):S, ( X, 
250 F.Y=18T030 


4 5 6 7" 

4 5 6 7" 

34) ; S. (X,, 38) sN. X 

26);S. (X,30)s N.X 


260 S. <7, Y) ; S. (14, Y) ; 
280 F.Y=10T038 
290 S. (21, Y) : S. (28, Y) 
310 F.A=24TQ383.7 
320 S. (A, 12) : S. (A, 16) 
.330 S.. ( A+1, 12 ) : S. ( A +1 


8 . (49, Y) : 3. <56, Y) ; N. Y 

*S»(35,Y):S,(42,Y)sN.Y 

s S. (A, 32) : S. (A, 36) 

> 16)sS.(A+1,32);S.(A+l,36):N.A 



340 F« B=10T052S. 7 

350 S„ <6,20)sS. <B,24):S. <B,28> sS. <B+1,20>:S. <6+1,24) 

360 S. <B+1,28): N» B 
370 IFN=1T. 390 

380 R. <31,24) sR. <32, 24) s (3.450 
390 X=RND < 7):Y=RND< 7) 

400 IF < X < 3)* < Y< 3) + < Y>5)T » 420 
405 IF < X >5)*< Y<3) + < Y>5)T.420 

410 A= <X--1 ) #7+10: B== <Y-7> *4+36: R. <A, B) : R. < A+l , B) ; G., 450 

420 IF < Y=7) + <Y=6)T.440 

430 Y=Y+RND < 2):G.400 

440 Y=Y--RND < 2 ) : G. 400 

450 P „ AIO" " : P. ATO, " DA < X, Y ) — " ; 

460 IM.J,K 

470 J= <J-l)*7+10:K»<K-7>*4+36:G,1000 

480P.AT17," ":P.ATI7,"A <X,Y)- 

490 IN.T,R 

500 T=<T-1)*7+10:R=<R-7>*4+36:G.1100 

510 Q= < T-J)/2:W=< R-K)/2:Z=3+Q:V=K+W:G.1200 

520 R. < J,K)s R. <J + i,K)s S. <T,R):S. <T+1,R):R. <Z,V):R. <Z+1,V) 

530 M=M~1:H=0 

540 IFM=1T.560 

550 G.450 

560 IFP. < 31,24) = 1T.600 

570 P.AT480."ECCELLENTE,TU SEI QUASI UN GENIO";:G.2000 
600 P.AT480,"CONGRATULAZIONI ! TU SEI UN GENIO"G.2000 

999 E. 

1000 IF < J< 10) + < J>52) + <K< 12) + <K>36) T„ 1500 
1010 IFP. < J,K)=0T.1500 

1020 IF < J < 24)* <K< 20)T.1500 
1030 IF < J<24)* < K>28)T.1500 
.1040 IF < J >38 ) * < K< 20 ) T. 1500 
1050 IF < J >38 > * < K >28)1.1500 
1060 G.480 

1100 IF < T<10) + < T>52) + < R<12) + < R >36 > T.1600 

1110 I.FP. <T, R) =11., 1600 

1120 IF < T< 24)* < R< 20)T.1600 

1130 IF < T<24)* < R>28)T.1600 

1140 IF < T >38)* <R<20)T.1600 

1150 IF < T >38 ) * < R >28 ) T.. 1600 

1160 G.510 

1200 IFP. < Z , V )—OT.1600 
1210 IF < ABS < T—J)< >14)* < R-K=0)T.1600 
1220 IF < ABS <R-K)< >8)* < T-J=0)T.1600 
1230 G.520 

1500 P.ATO,"MOSSA INVALIDA":F.L=1TO1000:N.L 
1510 H=H+1 : IFH=3T.1700 
1520 G.450 

1600 P.AT17,"MOSSA INVALIDA":F.L=1TO1000:N.L 
1610 H=H+1 : IFH=3T. 1700 
1620 G.450 
1700 IFMC6T.1720 

1710 P.AT480,"ACCIPICCHIA,SE I ANDATO MALE ! !":G.2000 
1720 IFMC5T.1740 

1730 P.AT480," BENE,MA PUOI FARE DI MEGLIO "sG.2000 
1740 IFMC4T.1760 

1750 P.AT480," NON MALE. STAI IMPARANDO":G.2000 
1760 IFMC3T.1780 

1770 P.AT480," ORA E’ PRATICAMENTE VUOTO! ";:G.2000 
1780 

2000 I."PREMI <RETURN> PER GIOCARE ";A*:G.4 
3000 P.:I. "PREMI < RETURN > PER CONTINUARE " ; Af>: RET. 



Una caratteristica, in alcuni casi piuttosto seccante, del SO CP/M 
e' quella che tutti i prograMMi devono iniziare all'indirizzo 100 per 
poter essere richiamati e fatti partire direttamente dal CP/M. 

E' vero che tramite il programma di utilità" [)DT i programmi scritti 
tramite l'assemblatore ASM, che sono scritti in un codice particolare e 
portano il suffisso .HEX,possono essere fatti partire da una locazione di 
memoria qualsiasi, ma il processo e' abbastanza macchinoso e comunque 
richiede che il programma sia stato ottenuto mediante l'uso 
dell'assemblatore e non, ad esempio, scritto direttamente in linguaggio 
macchina, 

Un sistema per ovviare a questo inconveniente, che e' stato usato in 
uno dei precedenti bollettini per utilizzare il monitor esadecimale sotto 
CP/M, consiste nel far precedere il programma in questione da una serie 
di istruzioni che lo spostino nella posizione voluta, dopo che esso e' 
stato caricato usualmente dall'indirizzo 100* La sequenza delle 
istruzioni dette sopra e' molto breve perche' utilizza uno dei comandi 
Piu' potenti dello Z80, cioè' lo spostamento di aree di memoria. 

Ogni programma che dovrà' essere spostato dovrà' essere fatto 
precedere dalle seguenti istruzioni in linguaggio macchina} 

21 XX XX 11 YY YY 01 ZZ ZZ ED B0 C3 YY YY dovei 

XXXX e' l'indirizzo della cella di memoria dove inizia il programma da 
spostare 

YYYY e' .L'indirizzo da cui si vuole che il programma inizi dopo lo 
spostamento 

ZZZZ e' la lunghezza del programma da spostare. 

come al solito, poiché' si scrive in linguaggio macchina, la parte alta e 
quella bassa degli indirizzi e dei numeri dovranno essere scambiate fra 
di loro. 

Un esempio faciliterà' la comprensione* 

Supponiamo di voler fare partire dall'indirizzo 40 0 0 un programma che 
occupi 5FF celle di memoria. Scriveremo questo programma a partire dalla 
cella di indirizzo 200, dopo di che scriveremo a partire dall' indirizzo 
100 il programmino visto prima} 

21 00 02 11 00 40 01 FF 05 C3 00 40 

E MEMORIZZEREMO IL TUTTO CON IL NOME DI PROGl.COM con il comando} 

SADE 7 PROGl.COM 

Per far partire il programma, che girerà' dall'indirizzo 4000, sara' 
sufficiente dare il comando } 

PROCI 

Nel caso che si desideri che il programma in questione venga 
solamente caricato in memoria, ma non fatto partire automat icamerrte, la 
sequenza delle istruzioni che abbiamo visto dovrà' essere modificata come 
segue} 

21 XX XX 11 YY YY 01 ZZ ZZ C3 00 00 

In questo caso, dando il comando} 

PROCI 

il programma in questione verrà' caricato in memoria, ma subito dopo 
sera' restituito il controllo al CF’/M. Questo può' essere utile per 
caricare un programma fatto di piu' pezzi e far partire il tutto solo 
dopo avere caricato l'ultimo pezzo, oppure per caricare in memoria dei 
dati. 



1 CLS s PAT7, " COPYRIGHT MICRO !.. G " 

2 P.T.<15>;"BY":P.T.<ó>;"** MAURO TAVELLA **" 

3 P.!P.:P.s F.N=20T060: A < N)=0:N.N 

4 I=0:J=0:Q=2.3:P=1;A<9)=.21:G.500 

5 P.ATW,"T "5 :GOS. 6 :U=X + 1:V=Y-2:RET. 

6 Z=N/32sY=3*<I.(Z))+l:X=<Z-I.<Z))*64:RET. 

7 GOS .6 

8 F.I=XT0X+3:S.(I,Y):S.(I,Y+3):N.I 

9 F.I=X~lT0X+4:S.(I,Y+i);S.<I,Y+2)sN.I:RET. 

11 GOS. 6 :F„I=XT0X+12S.2:S.(I,Y)tS.(I+l,Y+2)sS.<I„Y+4)sN.I 

12 X=X+17 : FI=Y+7T0Y+20S.2:S. (X, I) :S. (X+2, 1 + 1) :S' (X+4, I) :N. I 

13 REI, 

24 GOS. 6 :F.I=YT0Y+12S.2:S. <X,I> sS. <X+1,I + l);S. (X+2,I);N.I 

25 Y=Y+13s F.I = X+5TQX + 18S.2;S. (I.Y);S. (i + l,Y+l):S. (I,Y+2):N.I 

26 RET. 

40 Z=I. <K) :W=IO#I. (Z/100) : B=10* <Z-10*W) :C=(K-Z) *1000 

42 Z=I. (L)s H=I„ (Z/1000):G= Z-H* 1000;D=<L-Z)* 1000 

43 W=W/2: B=B/2: C=C/2: D=D/2 

44 P.AT448,E;"BUCA";G;"METRI - MEDIA";H; 

45 P. "TIRI 11 5 

46 M=W:GOS.5:N=B:GOS.7:N=C:GOS.11:N=D; GOS. 24 
48 RET. 

60 S=S+1 :P.AT495,"BATTUTA"qSs :RET. 

90 F.Z = 1T0500:M.Z:RET. 

500 P.T.(10),"*** GOLF ***":P.sP. 

505 T=R. (25): A <10)=R. <12)sR=A(10 )+6 
510 IFA(10)> 6 R”A<10 )~6 

550 P„T;”MPH VENTO": A(11)=0: A <12 > «0s A <13)=2:S=0:GOS.1000 
560 I."1 0 2 GlOCATORI";ZsA(15)=ZsI„"GIOCATORE 1 "5 A* 

570 IFZ=2I."GIOCATORE 2";B$ 

588 CLS 

589 GOS.597;N=OsIF<A<13)=i)*(A<15)=2)N=18:G.592 

590 A(13)=1;P.A$;sG.595 
592 A(13)=2 sP.B*5 

595 I." QUALE BUCA "5 F: IF<F<1> + (F>9)G.588 

596 8.602 

597 R=0;F.Z=20T028: IF(A(Z)=0)R=1 

598 IF(A(15)=2)*<A<Z+18)=0)R=1 

599 N.Z sIFR=OG.8000 

600 RET. 

602 IF(A(19+F+N)=1)0.588 

605 A<19+F+N)=1 

610 N=F-1 :CLS: 0=1s8=0:G.2000 

650 E--F : ONEGOS .810,820,830,840,850,860870,880, 890 
664 GOS.40 s A(5)=U: A < 6 )=V;RET. 

810 K=3249.23:L-4489.29;RET. 

820 K=8327.40:L=4347.09:RET. 

830 K=1977.28:L=5624.33:RET. 

840 K=5849»39:L=4391.29:RET. 

850 K=5027.14 :L=4339.20:RET. 

860 K=5830.39:L=4432.10:RET. 

870 K=2853.40:L=3142.33:RET. 

880 K=2681.42:L=4458.47:RET. 

890 108721.28:L=4367.14:RET. 



1000 
1060 
1070 
2000 
2015 
2020 

2025 

2026 

2099 

2100 
2102 
21 10 
2120 
2130 
2135 
2140 
2150 
2200 
2550 
2560 
2565 
2570 
2576 
2580 
2590 
2600 
2611 

2615 

2616 
2617 
2620 

2621 

o /nn 
x. Oxl 

2624 

x. O j‘_. >.J 
2626 
2630 
2640 
2650 
3000 

3011 

3012 
3050 
3060 

3070 

3071 

3072 

3073 

3074 
3080 
3090 

3094 

3095 
3105 


T=T*A <9): A(10)=-30*A<10)+90:IFA(10)<0A(10)=A <10)+360 
X=A(10);GQS.30360:A<1)=Y*T:X=A<10):BOS.30376:A(2)=-Y*T 
RET. 

BOB.650:J=A(5):J=A(6) 

IFP. (I,J)=0G.2099 

IF(P.(I+1,J)=1)+(P«<I~1,J)=1)B.3000 

BOB.60:P.AT480," ». 

P.AI480,"PALLA PERSA"; : 0=1 ;G.2000 

S.(I,J>:P.AT0,T/A(9>;"KMH VENTO DA";R;T.(23) 5 "-MAZZA "5 
I.C: IFOllG.588 

P.AT23," "; :P. AT23,"-DIR."s:I.LsIFL>12.99G.2100 

BOB., 60: D=-22*C+262 

E=<(24+C)-R.(48+2*0)/100 

D=D+„5*D*E 

P.AT480,"DIST."; I„ (D); 

A=-30*L.+90 : IFA< 0A=A+360 

Z=40—RND(80):E=Z*Z/200:IFZ<OE=-E:A=A+E 

X=A:BOS.30360: A(3)=Y:X=A:BOB.30376: A(4)=~Y 

IFO=OG.2570 

A (7) =A (5) ; A ( 8 ) =A ( 6 ) 

R. (I,J) 

I=A(7):J=A( 8 ):D=D*A(9) 

X=A(IO)—A-180:BOB.30360:Z=D*D+T *T-2*T*D*Y 
I FA (14) =0R » (I,, J) 

H=I+A(3)*Q:K=j+A(4)*P:X=T/D*((-1/11)*0+1):I=H+A(1)*X 
J-K+A(2)*X 

IFI>631=63: IFI<11 = 1 : IFJ>42J=42: IFJ<4J=4 
IF(I< 63 > *(I>1)*(J>4)*(J<42)G. 2620 
P.AT480," » ; 

P.. AT480, " FUOR I CAMPO " : : BOB. 60 : G. 2640 
IFP.(I,J>=06.2622 
A(14)=9:0.2624 
A(14)=0 

S. <I„J) 

M=A.(H-A(7)):N=A.(K-A( 8 )) 

N=Q/P*M 

IF Z >(M*M+N*N)G.2580 

0=0:A(7)=1:A(8)=J;IFA(14)=0R„(I,J) 

G.2015 

CLS: K=20+RND(80):L=6+RND(35) 

F.Z=KT0K+1:F„X=LT0L+1 
S.(Z,X):N.X:N.Z:D=800 
M=RND(63);N=5+RND(40) 

S.(M,N):I=M:J=N 

P.ATO,"FORZA COLPO 1=PIAM0 A 9=F0RTE"; : I.C 
IF09G. 3070 

P. ATO:P.ATO,"DIREZIONE": : I„L 
IFL>136.3070 
BOB„60 

A=—30* L+90: IFA<0A=A+360 

X=A:GOS,30360: A(3)=Y:X=A:GOS.30376: A(4 > =—Y 
F.E=0T050S.2 

Y=-E*E+100*E:Z=Y:Y=2*C*Y*.001 
R.(1,3) 



3110 I=M+A<3)*Y*G:J=N+A<4>*Y*P 

3115 IF <I>63> + ( I<4) + (J >46) + (J<4)6.4200 

31 18 IF <P. <M,N> =1> + <P. < I„ J> =1 ) * < Z >D ) G. 4500 

3119 S.(I,J):N.E 

3140 M=I: H-J :G.3070 

4200 CLS;P„AT224,"**** TROPPO FORTE * * * *";GOS.60:GOS.90:G.3000 

4500 CLS : P. AT234, " * * KLUMK * * " : GOS.. 90 

4501 G.9990 
8000 CLS:P.:P. 

8010 P."LA PARTITA SUL CAMPO N.1 E’ TERMINATA. 

8020 P. : P. : P. " SI TUAZI ONE DOPO 9 BUCHE : " : P.. 

8030 P.A*,A <11)s" COLFI":P » 

8040 IFA <15)=2P.B$, A ( 12 )s" COLPI"sP. 

8050 P."SE VUOI CONTINUARE IL GIOCO SUL CAMPO N.2 
8060 P."SCRIVI <CLOAD> E POSIZIONA IL" 

8070 P."REGISTRATORE IN ASCOLTO" 

8090 END 

9990 Z=A (13) : A=A ( 10+Z ) : A=A+S: A ( 10+Z ) =A 

9991 CLS:P."BUCA";F;"~";S;"COLFI PER "; 

9992 IFA <13)=iG.9994 

9993 P.B*:G.9995 
99.94 P„A$ 

9995 P.sR."TOTALE":P.:P.A*;" ; A(11) 

9996 IFA(15)=2P.B^5 " ~ ,, sA(12) 

9997 P.sP.sP.:G.589 

30360 W=A. < X ) / X : X=X+90:GOS.303761IF(Z=-1> * < W»1)T.Y=-Y 
30365 RET. 

30376 Z=A.(X)/XsX=Z*X 

30380 IFX>360T.X=X/360s X= < X-1. (X))*360 

30390 IFX>90T.X=X/90sY=I. (X)s X=<X-Y)*90:ONYG.30410„30420,30430 
30400 X=X/57.29578:IFA. <X> <2.24861E-4Y=0:RET. 

30405 G.30440 

30410 X=90~-X:G.30400 

30420 X=-X:G.30400 

30430 X«X-90:G.30400 

30440 Y=X-X*X*X/6:IFZ=-1Y=-Y 

30455 RET. 


Mittente: 
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